-- card: 7396 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 2602
-- name: TRICEPS PULL-DOWN


-- part 6 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=118 top=61 right=81 bottom=338
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 128
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: EXERCISE


-- part 11 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=184 top=105 right=219 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 128
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: WEIGHT
----- HyperTalk script -----
on mouseWithin
  get the scroll of card field "WEIGHT"
  set the scroll of card field "DATE" to it
  set the scroll of card field "REPS" to it
  set the scroll of card field "SETS" to it
end mouseWithin



-- part 12 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=296 top=106 right=220 bottom=383
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 128
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: REPS
----- HyperTalk script -----
on mouseWithin
  get the scroll of card field "REPS"
  set the scroll of card field "DATE" to it
  set the scroll of card field "WEIGHT" to it
  set the scroll of card field "SETS" to it
end mouseWithin



-- part 13 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=412 top=106 right=223 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 128
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SETS
----- HyperTalk script -----
on mouseWithin
  get the scroll of card field "SETS"
  set the scroll of card field "DATE" to it
  set the scroll of card field "WEIGHT" to it
  set the scroll of card field "REPS" to it
end mouseWithin



-- part 14 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=52 top=105 right=220 bottom=146
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 128
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: DATE
----- HyperTalk script -----
on mouseWithin
  get the scroll of card field "DATE"
  set the scroll of card field "WEIGHT" to it
  set the scroll of card field "REPS" to it
  set the scroll of card field "SETS" to it
end mouseWithin



-- part 18 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=426 top=274 right=296 bottom=482
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SETS
----- HyperTalk script -----
on mouseUp
  PUSH CARD
  PUT SHORT NAME OF THIS CARD INTO EXNAME
  GO TO CARD "CHART"
  PUT CARD FIELD "SETS" OF CARD EXNAME INTO BACKGROUND FIELD "DATA" OF CARD "CHART"
  PUT CARD FIELD "EXERCISE" OF CARD EXNAME INTO BACKGROUND FIELD "GRAPH NAME"
  PUT  " SETS" AFTER BACKGROUND FIELD "GRAPH NAME"
  put the userLevel into saveLevel
  if the userLevel < 3 then set userLevel to 3 -- "Painting"
  if the userLevel < 3 then exit mouseUp
  CLEARSCREEN
  put empty into background field "total"
  reset paint
  choose rect tool
  set lineSize to 1
  set pattern to 14
  set filled to true
  put frameleft() into horiz
  put maxLine(field "DATA") into maxValue
  put the number of lines in field "DATA" into dataCount
  put round(framewidth()/dataCount) into horizStep
  put round(horizStep * 3/4) into width
  repeat with i = 1 to dataCount
    get line i of field "DATA"
    if it is not empty then
      put round(frameheight() * it / maxValue) into height
      drag from horiz,framebottom()-height to horiz+width,framebottom()
    end if
    add horizStep to horiz
  end repeat
  reset paint
  choose browse tool
  set userLevel to saveLevel
end mouseUp




-- part 19 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=316 top=274 right=296 bottom=372
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: REPS
----- HyperTalk script -----
on mouseUp
  PUSH CARD
  PUT SHORT NAME OF THIS CARD INTO EXNAME
  GO TO CARD "CHART"
  PUT CARD FIELD "REPS" OF CARD EXNAME INTO BACKGROUND FIELD "DATA" OF CARD "CHART"
  PUT CARD FIELD "EXERCISE" OF CARD EXNAME INTO BACKGROUND FIELD "GRAPH NAME"
  PUT  " REPS" AFTER BACKGROUND FIELD "GRAPH NAME"
  put the userLevel into saveLevel
  if the userLevel < 3 then set userLevel to 3 -- "Painting"
  if the userLevel < 3 then exit mouseUp
  CLEARSCREEN
  put empty into background field "total"
  reset paint
  choose rect tool
  set lineSize to 1
  set pattern to 14
  set filled to true
  put frameleft() into horiz
  put maxLine(field "DATA") into maxValue
  put the number of lines in field "DATA" into dataCount
  put round(framewidth()/dataCount) into horizStep
  put round(horizStep * 3/4) into width
  repeat with i = 1 to dataCount
    get line i of field "DATA"
    if it is not empty then
      put round(frameheight() * it / maxValue) into height
      drag from horiz,framebottom()-height to horiz+width,framebottom()
    end if
    add horizStep to horiz
  end repeat
  reset paint
  choose browse tool
  set userLevel to saveLevel
end mouseUp




-- part 20 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=204 top=274 right=296 bottom=260
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: WEIGHT
----- HyperTalk script -----
on mouseUp
  PUSH CARD
  PUT SHORT NAME OF THIS CARD INTO EXNAME
  GO TO CARD "CHART"
  PUT CARD FIELD "WEIGHT" OF CARD EXNAME INTO BACKGROUND FIELD "DATA" OF CARD "CHART"
  PUT CARD FIELD "EXERCISE" OF CARD EXNAME INTO BACKGROUND FIELD "GRAPH NAME"
  PUT  " WEIGHT" AFTER BACKGROUND FIELD "GRAPH NAME"
  put the userLevel into saveLevel
  if the userLevel < 3 then set userLevel to 3 -- "Painting"
  if the userLevel < 3 then exit mouseUp
  CLEARSCREEN
  put empty into background field "total"
  reset paint
  choose rect tool
  set lineSize to 1
  set pattern to 14
  set filled to true
  put frameleft() into horiz
  put maxLine(field "DATA") into maxValue
  put the number of lines in field "DATA" into dataCount
  put round(framewidth()/dataCount) into horizStep
  put round(horizStep * 3/4) into width
  repeat with i = 1 to dataCount
    get line i of field "DATA"
    if it is not empty then
      put round(frameheight() * it / maxValue) into height
      drag from horiz,framebottom()-height to horiz+width,framebottom()
    end if
    add horizStep to horiz
  end repeat
  reset paint
  choose browse tool
  set userLevel to saveLevel
end mouseUp




-- part 21 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=28 top=275 right=297 bottom=128
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: NEW EXERCISE
----- HyperTalk script -----
on mouseUp
  ask "What is the name of the exercise?" with "New Exercise"
  doMenu copy card
  doMenu paste card
  set the name of this card to it
  put it into card field "exercise"
  put " " into card field "weight"
  put " " into card field "reps"
  put " " into card field "sets"
end mouseUp



-- part contents for card part 14
----- text -----
1/5/88
1/7/88
1/9/88




-- part contents for card part 11
----- text -----
 0
33
38.5

-- part contents for card part 12
----- text -----
0
15
15

-- part contents for card part 13
----- text -----
0
1
1

-- part contents for card part 6
----- text -----
TRICEPS PULL-DOWN

-- part contents for background part 14
----- text -----
keep back straight and elbows against side